Developer CD Series 1995 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / PowerLisp / PowerLisp 1.1.sea / PowerLisp 1.1 / Library / describe.lisp < prev next >
MacBinary | 1994-03-25 | 2.3 KB | [TEXT/ROSA]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Mar 25 00:53:30 1994, modified Fri Mar 25 00:53:30 1994, creator 'ROSA', type ASCII, 1545 bytes "describe.lisp" , at 0x689 484 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ROSA]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 64 65 73 63 72 69 | 62 65 2e 6c 69 73 70 00 |..descri|be.lisp.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 52 4f 53 | 41 01 00 00 00 00 00 00 |.TEXTROS|A.......|
|00000050| 00 00 00 00 00 06 09 00 | 00 01 e4 a9 b8 2c da a9 |........|.....,..|
|00000060| b8 2c da 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cf 8d 00 00 |........|........|
|00000080| 3b 3b 3b 0d 3b 3b 3b 09 | 09 43 6f 70 79 72 69 67 |;;;.;;;.|.Copyrig|
|00000090| 68 74 20 a9 20 31 39 39 | 34 20 52 6f 67 65 72 20 |ht . 199|4 Roger |
|000000a0| 43 6f 72 6d 61 6e 2e 20 | 20 41 6c 6c 20 72 69 67 |Corman. | All rig|
|000000b0| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0d 3b 3b |hts rese|rved..;;|
|000000c0| 3b 0d 0d 3b 0d 3b 09 46 | 69 6c 65 3a 09 09 64 65 |;..;.;.F|ile:..de|
|000000d0| 73 63 72 69 62 65 2e 6c | 69 73 70 0d 3b 09 43 6f |scribe.l|isp.;.Co|
|000000e0| 6e 74 65 6e 74 73 3a 09 | 64 65 73 63 72 69 62 65 |ntents:.|describe|
|000000f0| 20 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 20 | impleme|ntation |
|00000100| 66 6f 72 20 50 6f 77 65 | 72 4c 69 73 70 2e 0d 3b |for Powe|rLisp..;|
|00000110| 0d 28 69 6e 2d 70 61 63 | 6b 61 67 65 20 3a 63 6f |.(in-pac|kage :co|
|00000120| 6d 6d 6f 6e 2d 6c 69 73 | 70 29 0d 28 70 72 6f 76 |mmon-lis|p).(prov|
|00000130| 69 64 65 20 3a 64 65 73 | 63 72 69 62 65 29 0d 0d |ide :des|cribe)..|
|00000140| 28 64 65 66 75 6e 20 25 | 64 65 73 63 72 69 62 65 |(defun %|describe|
|00000150| 20 28 6f 62 6a 20 26 6f | 70 74 69 6f 6e 61 6c 20 | (obj &o|ptional |
|00000160| 28 73 74 72 65 61 6d 20 | 2a 73 74 61 6e 64 61 72 |(stream |*standar|
|00000170| 64 2d 6f 75 74 70 75 74 | 2a 29 29 0d 09 28 74 79 |d-output|*))..(ty|
|00000180| 70 65 63 61 73 65 20 6f | 62 6a 0d 09 09 28 73 79 |pecase o|bj...(sy|
|00000190| 6d 62 6f 6c 20 09 28 64 | 65 73 63 72 69 62 65 2d |mbol .(d|escribe-|
|000001a0| 73 79 6d 62 6f 6c 20 6f | 62 6a 20 73 74 72 65 61 |symbol o|bj strea|
|000001b0| 6d 29 29 0d 09 09 28 63 | 6f 6e 73 09 09 28 64 65 |m))...(c|ons..(de|
|000001c0| 73 63 72 69 62 65 2d 63 | 6f 6e 73 20 6f 62 6a 20 |scribe-c|ons obj |
|000001d0| 73 74 72 65 61 6d 29 29 | 0d 09 09 28 70 61 63 6b |stream))|...(pack|
|000001e0| 61 67 65 20 09 28 64 65 | 73 63 72 69 62 65 2d 70 |age .(de|scribe-p|
|000001f0| 61 63 6b 61 67 65 20 6f | 62 6a 20 73 74 72 65 61 |ackage o|bj strea|
|00000200| 6d 29 29 0d 09 09 28 74 | 09 09 09 28 66 6f 72 6d |m))...(t|...(form|
|00000210| 61 74 20 20 73 74 72 65 | 61 6d 20 0d 09 09 09 09 |at  stre|am .....|
|00000220| 09 09 22 53 6f 72 72 79 | 2c 20 6e 6f 20 69 6e 66 |.."Sorry|, no inf|
|00000230| 6f 72 6d 61 74 69 6f 6e | 20 61 76 61 69 6c 61 62 |ormation| availab|
|00000240| 6c 65 20 66 6f 72 3a 20 | 7e 41 22 20 6f 62 6a 29 |le for: |~A" obj)|
|00000250| 29 29 29 0d 09 09 0d 28 | 64 65 66 75 6e 20 64 65 |)))....(|defun de|
|00000260| 73 63 72 69 62 65 2d 73 | 79 6d 62 6f 6c 20 28 6f |scribe-s|ymbol (o|
|00000270| 62 6a 20 73 74 72 65 61 | 6d 20 26 61 75 78 20 76 |bj strea|m &aux v|
|00000280| 61 6c 75 65 2d 6c 69 73 | 74 29 0d 09 28 73 65 74 |alue-lis|t)..(set|
|00000290| 71 20 76 61 6c 75 65 2d | 6c 69 73 74 20 28 25 73 |q value-|list (%s|
|000002a0| 79 6d 62 6f 6c 2d 76 61 | 6c 75 65 2d 73 74 61 63 |ymbol-va|lue-stac|
|000002b0| 6b 20 6f 62 6a 29 29 0d | 09 28 66 6f 72 6d 61 74 |k obj)).|.(format|
|000002c0| 20 73 74 72 65 61 6d 20 | 22 7e 25 53 79 6d 62 6f | stream |"~%Symbo|
|000002d0| 6c 3a 20 7e 41 7e 25 22 | 20 6f 62 6a 29 0d 09 28 |l: ~A~%"| obj)..(|
|000002e0| 66 6f 72 6d 61 74 20 73 | 74 72 65 61 6d 20 22 50 |format s|tream "P|
|000002f0| 72 69 6e 74 20 6e 61 6d | 65 3a 20 7e 41 7e 25 22 |rint nam|e: ~A~%"|
|00000300| 20 28 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 6f 62 | (symbol|-name ob|
|00000310| 6a 29 29 0d 09 28 66 6f | 72 6d 61 74 20 73 74 72 |j))..(fo|rmat str|
|00000320| 65 61 6d 20 22 56 61 6c | 75 65 3a 20 7e 41 7e 25 |eam "Val|ue: ~A~%|
|00000330| 22 20 28 63 61 72 20 76 | 61 6c 75 65 2d 6c 69 73 |" (car v|alue-lis|
|00000340| 74 29 29 0d 09 28 66 6f | 72 6d 61 74 20 73 74 72 |t))..(fo|rmat str|
|00000350| 65 61 6d 20 22 44 79 6e | 61 6d 69 63 20 76 61 6c |eam "Dyn|amic val|
|00000360| 75 65 73 20 73 74 61 63 | 6b 3a 20 7e 41 7e 25 22 |ues stac|k: ~A~%"|
|00000370| 20 76 61 6c 75 65 2d 6c | 69 73 74 29 0d 09 28 66 | value-l|ist)..(f|
|00000380| 6f 72 6d 61 74 20 73 74 | 72 65 61 6d 20 22 50 61 |ormat st|ream "Pa|
|00000390| 63 6b 61 67 65 3a 20 7e | 41 7e 25 22 20 28 73 79 |ckage: ~|A~%" (sy|
|000003a0| 6d 62 6f 6c 2d 70 61 63 | 6b 61 67 65 20 6f 62 6a |mbol-pac|kage obj|
|000003b0| 29 29 0d 09 28 66 6f 72 | 6d 61 74 20 73 74 72 65 |))..(for|mat stre|
|000003c0| 61 6d 20 22 50 72 6f 70 | 65 72 74 79 20 6c 69 73 |am "Prop|erty lis|
|000003d0| 74 3a 20 7e 41 7e 25 22 | 20 28 73 79 6d 62 6f 6c |t: ~A~%"| (symbol|
|000003e0| 2d 70 6c 69 73 74 20 6f | 62 6a 29 29 0d 09 28 66 |-plist o|bj))..(f|
|000003f0| 6f 72 6d 61 74 20 73 74 | 72 65 61 6d 20 22 46 75 |ormat st|ream "Fu|
|00000400| 6e 63 74 69 6f 6e 3a 20 | 7e 41 7e 25 22 20 28 73 |nction: |~A~%" (s|
|00000410| 79 6d 62 6f 6c 2d 66 75 | 6e 63 74 69 6f 6e 20 6f |ymbol-fu|nction o|
|00000420| 62 6a 29 29 0d 09 28 66 | 6f 72 6d 61 74 20 73 74 |bj))..(f|ormat st|
|00000430| 72 65 61 6d 20 22 43 6f | 6e 73 74 61 6e 74 20 66 |ream "Co|nstant f|
|00000440| 6c 61 67 3a 20 7e 41 7e | 25 22 20 28 69 66 20 28 |lag: ~A~|%" (if (|
|00000450| 63 6f 6e 73 74 61 6e 74 | 70 20 6f 62 6a 29 20 74 |constant|p obj) t|
|00000460| 20 6e 69 6c 29 29 29 0d | 09 0d 28 64 65 66 75 6e | nil))).|..(defun|
|00000470| 20 64 65 73 63 72 69 62 | 65 2d 63 6f 6e 73 20 28 | describ|e-cons (|
|00000480| 6f 62 6a 20 73 74 72 65 | 61 6d 29 0d 09 28 66 6f |obj stre|am)..(fo|
|00000490| 72 6d 61 74 20 73 74 72 | 65 61 6d 20 22 7e 25 43 |rmat str|eam "~%C|
|000004a0| 6f 6e 73 20 63 65 6c 6c | 3a 7e 25 22 29 0d 09 28 |ons cell|:~%")..(|
|000004b0| 66 6f 72 6d 61 74 20 73 | 74 72 65 61 6d 20 22 43 |format s|tream "C|
|000004c0| 61 72 3a 20 7e 41 7e 25 | 22 20 28 63 61 72 20 6f |ar: ~A~%|" (car o|
|000004d0| 62 6a 29 29 0d 09 28 66 | 6f 72 6d 61 74 20 73 74 |bj))..(f|ormat st|
|000004e0| 72 65 61 6d 20 22 43 64 | 72 3a 20 7e 41 7e 25 22 |ream "Cd|r: ~A~%"|
|000004f0| 20 28 63 64 72 20 6f 62 | 6a 29 29 29 0d 09 0d 28 | (cdr ob|j)))...(|
|00000500| 64 65 66 75 6e 20 64 65 | 73 63 72 69 62 65 2d 70 |defun de|scribe-p|
|00000510| 61 63 6b 61 67 65 20 28 | 6f 62 6a 20 73 74 72 65 |ackage (|obj stre|
|00000520| 61 6d 29 0d 09 28 66 6f | 72 6d 61 74 20 73 74 72 |am)..(fo|rmat str|
|00000530| 65 61 6d 20 22 7e 25 50 | 61 63 6b 61 67 65 3a 7e |eam "~%P|ackage:~|
|00000540| 25 22 29 0d 09 28 66 6f | 72 6d 61 74 20 73 74 72 |%")..(fo|rmat str|
|00000550| 65 61 6d 20 22 4e 61 6d | 65 3a 20 7e 41 7e 25 22 |eam "Nam|e: ~A~%"|
|00000560| 20 28 70 61 63 6b 61 67 | 65 2d 6e 61 6d 65 20 6f | (packag|e-name o|
|00000570| 62 6a 29 29 0d 09 28 66 | 6f 72 6d 61 74 20 73 74 |bj))..(f|ormat st|
|00000580| 72 65 61 6d 20 22 4e 69 | 63 6b 6e 61 6d 65 73 3a |ream "Ni|cknames:|
|00000590| 20 7e 41 7e 25 22 20 28 | 70 61 63 6b 61 67 65 2d | ~A~%" (|package-|
|000005a0| 6e 69 63 6b 6e 61 6d 65 | 73 20 6f 62 6a 29 29 0d |nickname|s obj)).|
|000005b0| 09 28 66 6f 72 6d 61 74 | 20 73 74 72 65 61 6d 20 |.(format| stream |
|000005c0| 22 55 73 65 20 6c 69 73 | 74 3a 20 7e 41 7e 25 22 |"Use lis|t: ~A~%"|
|000005d0| 20 28 70 61 63 6b 61 67 | 65 2d 75 73 65 2d 6c 69 | (packag|e-use-li|
|000005e0| 73 74 20 6f 62 6a 29 29 | 0d 09 28 66 6f 72 6d 61 |st obj))|..(forma|
|000005f0| 74 20 73 74 72 65 61 6d | 20 22 55 73 65 64 20 62 |t stream| "Used b|
|00000600| 79 20 6c 69 73 74 3a 20 | 7e 41 7e 25 22 20 28 70 |y list: |~A~%" (p|
|00000610| 61 63 6b 61 67 65 2d 75 | 73 65 64 2d 62 79 2d 6c |ackage-u|sed-by-l|
|00000620| 69 73 74 20 6f 62 6a 29 | 29 0d 09 28 66 6f 72 6d |ist obj)|)..(form|
|00000630| 61 74 20 73 74 72 65 61 | 6d 20 22 53 68 61 64 6f |at strea|m "Shado|
|00000640| 77 69 6e 67 20 73 79 6d | 62 6f 6c 73 3a 20 7e 41 |wing sym|bols: ~A|
|00000650| 7e 25 22 20 28 70 61 63 | 6b 61 67 65 2d 73 68 61 |~%" (pac|kage-sha|
|00000660| 64 6f 77 69 6e 67 2d 73 | 79 6d 62 6f 6c 73 20 6f |dowing-s|ymbols o|
|00000670| 62 6a 29 29 29 0d 09 0d | 0d 09 0d 09 0d 09 0d 09 |bj)))...|........|
|00000680| 0d 09 0d 09 0d 09 0d 0d | 0d 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 82 | 00 00 00 82 00 00 00 62 |........|.......b|
|00000710| 00 00 00 76 06 00 05 00 | 00 00 00 15 00 00 62 06 |...v....|......b.|
|00000720| 00 05 00 00 00 00 16 00 | 00 4e 06 00 05 00 00 00 |........|.N......|
|00000730| 0d 64 65 73 63 72 69 62 | 65 2e 6c 69 73 70 02 00 |.describ|e.lisp..|
|00000740| 00 00 54 45 58 54 52 4f | 53 41 01 00 ff ff ff ff |..TEXTRO|SA......|
|00000750| 00 00 54 45 58 54 52 4f | 53 41 01 00 ff ff ff ff |..TEXTRO|SA......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 a9 92 c5 0b 00 00 | 06 09 00 00 01 e4 02 18 |........|........|
|00000780| 90 94 4f ef ff f8 4f ef | ff f8 26 3c 02 1a 25 26 |..O...O.|..&<..%&|
|00000790| 2e 83 42 af 00 04 2f 0f | 4e b9 02 00 c1 5a 26 00 |..B.../.|N....Z&.|
|000007a0| 4f ef 00 0c 2e 83 42 af | 00 04 2f 0f 4e b9 02 03 |O.....B.|../.N...|
|000007b0| 5b 6a 26 00 4f ef 00 0c | 4f ef ff f8 2e 93 42 af |[j&.O...|O.....B.|
|000007c0| 00 04 2f 0f 26 4f 4a 9b | 66 00 ff fc 25 23 20 0b |../.&OJ.|f...%# .|
|000007d0| b0 8f 66 00 ff f8 4e 5e | 20 57 4f ea 00 04 2f 0f |..f...N^| WO.../.|
|000007e0| 2f 08 60 00 ff 6e 26 00 | 4f ef 00 0c 42 b9 01 ff |/.`..n&.|O...B...|
|000007f0| 2c b8 20 03 4c ee 1d 08 | ff e8 4e 5e 4e 75 00 00 |,. .L...|..N^Nu..|
|00000800| 00 00 00 10 00 00 00 00 | 00 3c 02 00 00 00 00 3d |........|.<.....=|
|00000810| 00 4e 02 00 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |.N.....H|..Monaco|
|00000820| 00 46 00 74 00 46 00 79 | 00 46 00 7a 00 46 02 2e |.F.t.F.y|.F.z.F..|
|00000830| 00 47 02 2e 00 47 02 2f | 01 6c 00 06 00 04 00 30 |.G...G./|.l.....0|
|00000840| 00 74 01 89 02 67 00 30 | 00 74 01 89 02 67 a9 b7 |.t...g.0|.t...g..|
|00000850| f4 9a 00 00 00 42 00 00 | 00 42 00 00 00 00 00 00 |.....B..|.B......|
|00000860| 00 00 00 1e 00 30 00 74 | 01 89 02 67 00 30 00 74 |.....0.t|...g.0.t|
|00000870| 01 89 02 67 00 00 00 00 | 00 00 00 00 00 00 00 00 |...g....|........|
|00000880| 00 00 00 00 01 00 00 00 | 01 82 00 00 00 82 00 00 |........|........|
|00000890| 00 62 00 ff 03 38 19 b6 | 00 00 00 1c 00 52 00 01 |.b...8..|.....R..|
|000008a0| 41 74 74 72 00 00 00 12 | 4d 50 53 52 00 01 00 1e |Attr....|MPSR....|
|000008b0| 00 80 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|000008c0| 00 00 00 14 00 00 00 00 | 03 f0 ff ff 00 00 00 60 |........|.......`|
|000008d0| 01 01 5b 50 0f 54 65 78 | 74 20 41 74 74 72 69 62 |..[P.Tex|t Attrib|
|000008e0| 75 74 65 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |utes....|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+